10 INPUT "Количество строк ="; M%: IF M% < 1 THEN 10
20 INPUT "Количество столбцов ="; N%: IF N% < 1 THEN 20
30 DIM AR(M%, N%)
40 FOR I=1 TO M%
50 FOR J=1 TO N%
60 PRINT "Элемент "; I; "-й строки, "; J; "-го столбца = ";
70 INPUT AR(I, J)
80 NEXT J, I
90 DIM SUM(M%)  ' Результирующий массив
100 FOR I=1 TO M%
110 SUM(I) = 0
120 FOR J=1 TO N%
130 SUM(I) = SUM(I) + AR(I, J)
140 NEXT J, I
150 PRINT "Сумма элементов строк:"
160 FOR I=1 TO M%
170 PRINT SUM(I)
180 NEXT I
190 END